Make anonymous functions work in auto-mode-alist

* lisp/files.el (set-auto-mode--apply-alist): Don't infloop on
anonymous functions in auto-mode-alist (bug#20709).

diff --git a/lisp/files.el b/lisp/files.el
index e021545cf14f49854e49bd8ea72e383809eeff4a..aabe8f445e0e4344c34c2d70c95bbc238ceef4a9 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -3249,6 +3249,7 @@ extra checks should be done."
                         (let ((case-fold-search t))
                           (assoc-default name alist 'string-match))))))
           (if (and mode
+                   (not (functionp mode))
                    (consp mode)
                    (cadr mode))
               (setq mode (car mode)